home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / ndbm.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  785 b   |  31 lines
  1. if (!defined &_NDBM) {
  2.     eval 'sub _NDBM {1;}';
  3.     eval 'sub PBLKSIZ {1024;}';
  4.     eval 'sub DBLKSIZ {4096;}';
  5.     eval 'sub _DBM_RDONLY {0x1;}';
  6.     eval 'sub _DBM_IOERR {0x2;}';
  7.     eval 'sub dbm_rdonly {
  8.         local($db) = @_;
  9.         eval "(($db)-> &dbm_flags &  &_DBM_RDONLY)";
  10.     }';
  11.     eval 'sub dbm_error {
  12.         local($db) = @_;
  13.         eval "(($db)-> &dbm_flags &  &_DBM_IOERR)";
  14.     }';
  15.     eval 'sub dbm_clearerr {
  16.         local($db) = @_;
  17.         eval "(($db)-> &dbm_flags &= ~ &_DBM_IOERR)";
  18.     }';
  19.     eval 'sub dbm_dirfno {
  20.         local($db) = @_;
  21.         eval "(($db)-> &dbm_dirf)";
  22.     }';
  23.     eval 'sub dbm_pagfno {
  24.         local($db) = @_;
  25.         eval "(($db)-> &dbm_pagf)";
  26.     }';
  27.     eval 'sub DBM_INSERT {0;}';
  28.     eval 'sub DBM_REPLACE {1;}';
  29. }
  30. 1;
  31.